home *** CD-ROM | disk | FTP | other *** search
/ Wayzata's Best of Shareware PC/Windows 1 / Wayzata's Best of Shareware for PC-Windows - Release 1 - Wayzata Technology (1993).iso / mac / DOS / GRAPHICS / POVSCN / MATH.ZIP / HYPTORUS.POV < prev    next >
Text File  |  1992-07-03  |  1KB  |  64 lines
  1. // Persistence Of Vision raytracer version 1.0 sample file.
  2.  
  3. // By Alexander Enzmann
  4.  
  5. /* sample quartic scene file written by Alexander Enzmann */
  6.  
  7. #include "colors.inc"
  8. #include "shapes.inc"
  9. #include "textures.inc"
  10.  
  11.  
  12. /* Hyperbolic Torus having major radius sqrt(40), minor radius sqrt(12) */
  13. object {
  14.    quartic {
  15.       < 1.0   0.0   0.0    0.0     2.0   0.0   0.0  -2.0   0.0 -104.0
  16.       0.0   0.0   0.0    0.0     0.0   0.0   0.0   0.0   0.0    0.0
  17.       1.0   0.0   0.0   -2.0     0.0  56.0   0.0   0.0   0.0    0.0
  18.       1.0   0.0  104.0   0.0   784.0 >
  19.    }
  20.    bounded_by {
  21.       sphere { <0 0 0> 20 }
  22.    }
  23.    texture {
  24.       color Red
  25.       specular 1.0
  26.       roughness 0.01
  27.       ambient 0.2
  28.       diffuse 0.8
  29.    }
  30.    rotate <90 0 0>
  31.    rotate <0 30 0>
  32.    translate <0 0 20>
  33. }
  34.  
  35. /* Put down a floor */
  36. object {
  37.    plane { <0.0  1.0  0.0> -20.0 }
  38.    texture {
  39.       Blue_Agate
  40.       scale < 20.0 20.0 20.0 >
  41.       ambient 0.5
  42.       diffuse 0.5
  43.    }
  44. }
  45.  
  46. camera {
  47.    location  <0.0  0.0 -20.0>
  48.    direction <0.0  0.0   1.0>
  49.    up        <0.0  1.0   0.0>
  50.    right     <1.33 0.0   0.0>
  51. }
  52.  
  53. object {
  54.    light_source { <200 30 -300>
  55.       colour White
  56.    }
  57. }
  58.  
  59. object {
  60.    light_source { <-200 30 -300>
  61.       colour White
  62.    }
  63. }
  64.